summaryrefslogblamecommitdiffstats
path: root/ICH.FOR
blob: da6ccfedb55b4fc35f82e3d61b546e8e9d930e2e (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15














                                     
	SUBROUTINE ICH(CH,IZV,N)
	CHARACTER CH(10)*40
	DIMENSION IZV(1)
	CALL PKURZ(3,32,IND)
	WRITE(*,1)
1	FORMAT('Vr  Zv')
	DO 10 I=1,N
	II=2*I+3
	CALL PKURZ(II,22,IND)
	WRITE(*,5)I,IZV(I),CH(I)
5	FORMAT(10X,I2,'. ',I2,1X,A40)
10	CONTINUE
	RETURN
	END